home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs05.d81
/
evsbasic.arc
/
NONCONVEX.DMO
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
77 lines
100 (null)4:(null)13,1:(null)5,2,7
105 GOSUB1005
110 GOSUB1105
115 GOSUB1205
120 :
200 (null)15,15:(null)1:(null)
210 (null)55,105:(null)2:(null)
220 (null)146,144:(null)1:(null)
230 (null)FX,FY:(null)3:(null)
240 (null)195,13:(null)32
260 (null)180,50:(null)3:(null)128+32
270 :
300 A$=(null)(1)
310 (null)5
320 GOSUB1005
330 GOSUB1105
340 GOSUB1205
350 :
400 (null)15,15:(null)32
410 (null)55,105:(null)
420 (null)146,144:(null)20
430 (null)FX,FY:(null)50
440 (null)195,13:(null)128+32
450 (null)180,50:(null)"A"
460 :
800 A$=(null)(1)
805 (null)16
810 (null)14,6
815 (null)14,,14
820 END
825 :
1000 REM *H
1005 (null)20,20
1010 (null)30,20TO30,60TO50,60TO50,20TO60,20TO60,110
1015 (null)50,110TO50,70TO30,70TO30,110TO20,110TO20,20
1020 (null)10,10
1025 (null)70,10TO70,120TO10,120TO10,10
1030 RETURN
1035 :
1100 REM *SPIRAL
1105 DL(0)=0:DL(1)=-1:DL(2)=0:DL(3)=1
1110 DX=0:DY=1
1115 GOSUB1125
1120 DX=2:DY=3
1125 SL=4
1130 (null)150,140
1135 FORI=1TO14
1140 (null) (null)(0)+DL(DX)*SL,(null)(1)+DL(DY)*SL
1145 SL=8*I
1150 DX=DX+1+4*(DX=3)
1155 DY=DY+1+4*(DY=3)
1160 NEXT
1165 SL=SL-8
1170 (null) (null)(0)+DL(DX)*SL,(null)(1)+DL(DY)*SL
1175 DX=DX+1+4*(DX=3)
1180 (null) (null)(0)+DL(DX)*8,(null)(1)
1185 FX=(null)(0)+4:FY=(null)(1)+4
1190 RETURN
1195 :
1200 REM *ISLANDS
1205 SQ$=CHR$(10)+CHR$(0)+CHR$(0)+CHR$(10)
1210 SQ$=SQ$+CHR$(246)+CHR$(0)+CHR$(0)+CHR$(246)
1215 X=200:Y=15
1220 FORI=XTOX+90STEP30
1225 FORJ=YTOY+45STEP15
1230 (null)I,J
1235 (null)SQ$
1240 NEXT:NEXT
1245 FORI=X+15TOX+75STEP30
1250 FORJ=Y+5TOY+35STEP15
1255 (null)I,J
1260 (null)SQ$
1265 NEXT:NEXT
1270 (null)X-7,Y-5
1280 (null)X+107,Y-5TOX+107,Y+60TOX-7,Y+60TOX-7,Y-5
1285 RETURN